home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
dlg
/
FSS_1_0.lha
/
FSS_1.0
/
FSS
next >
Wrap
Text File
|
1995-09-02
|
2KB
|
100 lines
/*
** File SIG Selector
** by Vernon Dale Frameli
** Awesome Ami BBS
** +1-512-443-4187
**
** $VER: File SIG Selector v1.0 2-Sep-95
**
** FSS will select the appropriate File SIG based on the Users
** pre-defined Computer type. You are permitted to modify this program
** in whatever way you see fit, as long as you:
**
** 1) Do not remove the original authors name and BBS information.
** 2) Do not distribute modified versions without changing the version
** number, taking credit, and responsibility, for those modifications.
**
** Usage:
**
** rx Doors:FSS/FSS %Computer
**
** Set this up in your main menu as a replacement for FILE_MAIN, then
** modify the Computer types and SIG numbers to match your BBS.
**
*/
parse arg computer
signal on error
signal on syntax
signal on ioerr
exten = left(computer,3)
/*
** Amiga
*/
if upper(exten) = 'AMI' then do
address command 'DLG:File -s 1 -t'
signal endprog
end
/*
** Atari
*/
if upper(exten) = 'ATA' then do
address command 'DLG:File -s 5 -t'
signal endprog
end
/*
** C=64
*/
if upper(exten) = 'C=6' then do
address command 'DLG:File -s 10 -t'
signal endprog
end
/*
** Macintosh
*/
if upper(exten) = 'MAC' then do
address command 'DLG:File -s 15 -t'
signal endprog
end
/*
** NeXT
*/
if upper(exten) = 'NEX' then do
address command 'DLG:File -s 20 -t'
signal endprog
end
/*
** PC
*/
if upper(exten) = 'PC ' then do
address command 'DLG:File -s 25 -t'
signal endprog
end
/*
** Other (Probably a PC Clone)
*/
if upper(exten) = 'OTH' then do
address command 'DLG:File -s 25 -t'
signal endprog
end
endprog:
exit